;2008-05-20
;Av Benjamin Ingberg och Patrik Johansson
;
;Innehåller spritesen och grundklassen till Player 2

(define *player2-sprites*
  (list (cons 'default "./sprites/redmoves/redstanddown.gif")
        (cons 'left "./sprites/redmoves/redstandleft.gif")
        (cons 'right "./sprites/redmoves/redstandright.gif")
        (cons 'up "./sprites/redmoves/redstandup.gif")
        (cons 'down "./sprites/redmoves/redstanddown.gif")))
(define *player2-controls*
  *other-controls*)

(define player2%
  (class player%
    (init x y)
    (super-new [x x][y y][w 44][h 48][sprites *player2-sprites*][controls *player2-controls*])
    (define/override (die board)
      (send board add-world-object (new player2-death% [x (send this get-x)][y (send this get-y)][board board])))))